| 日 | 月 | 火 | 水 | 木 | 金 | 土 |
| 1 | ||||||
| 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 |
文字サイズ変更：
トップページ ＞ Perlについて
●Perlについて●
2021-05-18 11:44:00ツェラーの公式
ツェラーの公式とは、ある日付から、曜日を算出する公式です。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
wdayが0 なら日曜日、6 なら土曜日になります。但し、 month は1月、2月を 13、14 としておきます。
グレゴリオ暦の日付に対して有効です。
出典「suikawiki」より
※追記(2023/01/03)
ツェラーの公式のコードを記述します。
sub wday {
my ($year， $month， $day) = @_;
if($month < 3){
$month += 12;
$year--;
}
return ($year+int($year/4)-int($year/100)+int($year/400)+int((13*$month+8)/5)+$day)% 7;
|
Print
Twitter(test)
short URL
いいね:74 back to the TOP |
 |
 |
 |
